﻿Public Class frmMainForm

    Private Sub TiếpNhậnHọcSinhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TiếpNhậnHọcSinhToolStripMenuItem.Click
        Dim frm = New frmTiepNhanHocSinh()
        frm.ShowDialog()
    End Sub

    Private Sub DanhSachLopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhSachLopToolStripMenuItem.Click
        Dim frm = New frmDanhSachLop()
        frm.ShowDialog()
    End Sub

    Private Sub QuanLyHocSinhcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyHocSinhToolStripMenuItem.Click
        Dim frm = New frmQuanLiHocSinh()
        frm.ShowDialog()
    End Sub

    Private Sub NhậpĐiểmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhậpĐiểmToolStripMenuItem.Click
        Dim frm = New frmNhapDiem()
        frm.ShowDialog()
    End Sub

    Private Sub QuảnLýLớpHọcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýLớpHọcToolStripMenuItem.Click
        Dim frm = New frmQuanLiLopHoc()
        frm.ShowDialog()
    End Sub

    Private Sub TiếpNhậnGiáoViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TiếpNhậnGiáoViênToolStripMenuItem.Click
        Dim frm = New frmTiepNhanGiaoVien()
        frm.ShowDialog()
    End Sub

    Private Sub QuảnLýGiáoViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýGiáoViênToolStripMenuItem.Click
        Dim frm = New frmQuanLiGiaoVien()
        frm.ShowDialog()
    End Sub

    Private Sub TraCứuHọcSinhToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuHọcSinhToolStripMenuItem1.Click
        Dim frm = New frmTraCuuHocSinh()
        frm.ShowDialog()
    End Sub

    Private Sub TraCứuGiáoViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuGiáoViênToolStripMenuItem.Click
        Dim frm = New frmTraCuuGiaoVien()
        frm.ShowDialog()
    End Sub

    Private Sub TraCứuLớpHọcToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuLớpHọcToolStripMenuItem.Click
        Dim frm = New frmTraCuuLopHoc()
        frm.ShowDialog()
    End Sub

    Private Sub TraCứuĐiểmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuĐiểmToolStripMenuItem.Click
        Dim frm = New frmTraCuuDiem()
        frm.ShowDialog()
    End Sub

    Private Sub ThoátToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem1.Click
        Me.Close()
    End Sub

    Private Sub ThoátToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub TựGiớiThiệuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TựGiớiThiệuToolStripMenuItem.Click
        Dim frm = New frmTacGia()
        frm.ShowDialog()
    End Sub

    Private Sub SốHọcSinhTrongMỗiLớpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SốHọcSinhTrongMỗiLớpToolStripMenuItem.Click
        Dim frm = New frmDemSoLuongHSTheoLop()
        frm.ShowDialog()
    End Sub

    Private Sub SốGiáoViênTheoMônToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SốGiáoViênTheoMônToolStripMenuItem.Click
        Dim frm = New frmDemSoLuongGVTheoMon()
        frm.ShowDialog()
    End Sub
End Class
